home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / gfx / misc / visual1_00.lha / Visual1.00 / Install < prev    next >
Encoding:
Text File  |  1995-03-04  |  1.6 KB  |  93 lines
  1. ; $VER: Install Visual 1.00 (04-mar-1995)
  2. ; Vallée Christophe © 1995
  3.  
  4. (set DEVICE "Work:")
  5. (set DEFAULTDEVICE "Sys:")
  6. (set DISTDIR "Visual")
  7.  
  8. (welcome)
  9. (complete 0)
  10.  
  11. (set MAINDIR
  12.    (askdir
  13.       (prompt "Where do you want to install Visual (a directory will be "
  14.       "created in the directory you will choose) ?")
  15.       (help @askdir-help)
  16.       (default (if ((= (exists DEVICE (noreq)) 2)) (DEVICE) (DEFAULTDEVICE)))
  17.       (disk)
  18.     )
  19. )
  20. (if (= (exists MAINDIR) 0) (makedir MAINDIR (infos)))
  21.  
  22. (set DIR (tackon MAINDIR DISTDIR))
  23. (set @default-dest DIR)
  24.  
  25. (complete 25)
  26.  
  27. ; crée répertoire
  28.  
  29. (if (= (exists DIR) 2) (
  30.     (message "Directory '" DIR "' already exists. All the files of this "
  31.             "directory will be deleteted.")
  32.     (run ("delete \"%s\" all" DIR))
  33.     )
  34. )
  35. (makedir DIR (infos))
  36.  
  37. (complete 40)
  38.  
  39. ; installe
  40.  
  41. (copyfiles
  42.    (source "Visual")
  43.    (dest DIR))
  44. (copyfiles
  45.    (source "Visual.info")
  46.    (dest DIR))
  47. (copyfiles
  48.    (source "Visual.guide")
  49.    (dest DIR))
  50. (copyfiles
  51.    (source "Visual.guide.info")
  52.    (dest DIR))
  53. (copyfiles
  54.    (source "Visual.palette")
  55.    (dest DIR))
  56.  
  57. (complete 60)
  58.  
  59. ; installe les fichiers icn
  60.  
  61. (set ICNDIR (tackon DIR "Icn"))
  62. (makedir ICNDIR (infos))
  63.  
  64. (copyfiles
  65.    (source "Icn")
  66.    (dest ICNDIR)
  67.    (pattern "#?"))
  68.  
  69. (complete 80)
  70.  
  71. ; installe les fichiers ARexx
  72.  
  73. (set REXXDIR (tackon DIR "Rexx"))
  74. (makedir REXXDIR (infos))
  75.  
  76. (copyfiles
  77.    (source "Rexx")
  78.    (dest REXXDIR)
  79.    (pattern "#?"))
  80.  
  81. ; installe les fichiers exemples
  82.  
  83. (set EXEDIR (tackon DIR "Examples"))
  84. (makedir EXEDIR (infos))
  85.  
  86. (copyfiles
  87.    (source "Examples")
  88.    (dest EXEDIR)
  89.    (pattern "#?"))
  90.  
  91. (complete 100)
  92. (exit)
  93.